/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / mel / mel-b.elc.z / mel-b.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 30 3a 31 37 20 31 | 39 39 38 0a 3b 3b 3b 20 |:50:17 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 65 6c 2f |s-20.3/l|isp/mel/|
|000000a0| 6d 65 6c 2d 62 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |mel-b.el|.;;; ema|
|000000b0| 63 73 20 76 65 72 73 69 | 6f 6e 20 32 30 2e 34 20 |cs versi|on 20.4 |
|000000c0| 22 45 6d 65 72 61 6c 64 | 22 20 58 45 6d 61 63 73 |"Emerald|" XEmacs|
|000000d0| 20 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |  Lucid.|.;;; byt|
|000000e0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000f0| 32 35 20 58 45 6d 61 63 | 73 3b 20 32 32 2d 4d 61 |25 XEmac|s; 22-Ma|
|00000100| 72 2d 39 36 2e 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 |r-96..;;|; optimi|
|00000110| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|00000120| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|00000130| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000140| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000150| 6d 61 63 73 20 31 39 2e | 0a 0a 28 69 66 20 28 61 |macs 19.|..(if (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000170| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000180| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000190| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|000001a0| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|000001b0| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|000001c0| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|000001d0| 20 22 32 30 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "20")))|.    (er|
|000001e0| 72 6f 72 20 22 60 6d 65 | 6c 2d 62 2e 65 6c 27 20 |ror "`me|l-b.el' |
|000001f0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|00000200| 20 45 6d 61 63 73 20 32 | 30 22 29 29 0a 0a 28 6f | Emacs 2|0"))..(o|
|00000210| 72 20 28 62 6f 75 6e 64 | 70 20 27 63 75 72 72 65 |r (bound|p 'curre|
|00000220| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 29 20 28 73 |nt-load-|list) (s|
|00000230| 65 74 71 20 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |etq curr|ent-load|
|00000240| 2d 6c 69 73 74 20 6e 69 | 6c 29 29 0a 0a 0a 28 72 |-list ni|l))...(r|
|00000250| 65 71 75 69 72 65 20 27 | 65 6d 75 29 0a 23 40 35 |equire '|emu).#@5|
|00000260| 37 20 2a 6c 69 73 74 20 | 6f 66 20 62 61 73 65 36 |7 *list |of base6|
|00000270| 34 20 65 6e 63 6f 64 65 | 72 20 70 72 6f 67 72 61 |4 encode|r progra|
|00000280| 6d 20 6e 61 6d 65 20 61 | 6e 64 20 69 74 73 20 61 |m name a|nd its a|
|00000290| 72 67 75 6d 65 6e 74 73 | 2e 1f 0a 28 64 65 66 76 |rguments|...(defv|
|000002a0| 61 72 20 62 61 73 65 36 | 34 2d 65 78 74 65 72 6e |ar base6|4-extern|
|000002b0| 61 6c 2d 65 6e 63 6f 64 | 65 72 20 27 28 22 6d 6d |al-encod|er '("mm|
|000002c0| 65 6e 63 6f 64 65 22 29 | 20 28 23 24 20 2e 20 2d |encode")| (#$ . -|
|000002d0| 36 31 30 29 29 0a 23 40 | 35 37 20 2a 6c 69 73 74 |610)).#@|57 *list|
|000002e0| 20 6f 66 20 62 61 73 65 | 36 34 20 64 65 63 6f 64 | of base|64 decod|
|000002f0| 65 72 20 70 72 6f 67 72 | 61 6d 20 6e 61 6d 65 20 |er progr|am name |
|00000300| 61 6e 64 20 69 74 73 20 | 61 72 67 75 6d 65 6e 74 |and its |argument|
|00000310| 73 2e 1f 0a 28 64 65 66 | 76 61 72 20 62 61 73 65 |s...(def|var base|
|00000320| 36 34 2d 65 78 74 65 72 | 6e 61 6c 2d 64 65 63 6f |64-exter|nal-deco|
|00000330| 64 65 72 20 27 28 22 6d | 6d 65 6e 63 6f 64 65 22 |der '("m|mencode"|
|00000340| 20 22 2d 75 22 29 20 28 | 23 24 20 2e 20 2d 37 33 | "-u") (|#$ . -73|
|00000350| 31 29 29 0a 23 40 31 32 | 37 20 2a 6c 69 6d 69 74 |1)).#@12|7 *limit|
|00000360| 20 73 69 7a 65 20 74 6f | 20 75 73 65 20 69 6e 74 | size to| use int|
|00000370| 65 72 6e 61 6c 20 62 61 | 73 65 36 34 20 65 6e 63 |ernal ba|se64 enc|
|00000380| 6f 64 65 72 2e 0a 49 66 | 20 73 69 7a 65 20 6f 66 |oder..If| size of|
|00000390| 20 69 6e 70 75 74 20 74 | 6f 20 65 6e 63 6f 64 65 | input t|o encode|
|000003a0| 20 69 73 20 6c 61 72 67 | 65 72 20 74 68 61 6e 20 | is larg|er than |
|000003b0| 74 68 69 73 20 6c 69 6d | 69 74 2c 0a 65 78 74 65 |this lim|it,.exte|
|000003c0| 72 6e 61 6c 20 65 6e 63 | 6f 64 65 72 20 69 73 20 |rnal enc|oder is |
|000003d0| 63 61 6c 6c 65 64 2e 1f | 0a 28 64 65 66 76 61 72 |called..|.(defvar|
|000003e0| 20 62 61 73 65 36 34 2d | 69 6e 74 65 72 6e 61 6c | base64-|internal|
|000003f0| 2d 65 6e 63 6f 64 69 6e | 67 2d 6c 69 6d 69 74 20 |-encodin|g-limit |
|00000400| 31 30 30 30 20 28 23 24 | 20 2e 20 2d 38 35 38 29 |1000 (#$| . -858)|
|00000410| 29 0a 23 40 31 32 37 20 | 2a 6c 69 6d 69 74 20 73 |).#@127 |*limit s|
|00000420| 69 7a 65 20 74 6f 20 75 | 73 65 20 69 6e 74 65 72 |ize to u|se inter|
|00000430| 6e 61 6c 20 62 61 73 65 | 36 34 20 64 65 63 6f 64 |nal base|64 decod|
|00000440| 65 72 2e 0a 49 66 20 73 | 69 7a 65 20 6f 66 20 69 |er..If s|ize of i|
|00000450| 6e 70 75 74 20 74 6f 20 | 64 65 63 6f 64 65 20 69 |nput to |decode i|
|00000460| 73 20 6c 61 72 67 65 72 | 20 74 68 61 6e 20 74 68 |s larger| than th|
|00000470| 69 73 20 6c 69 6d 69 74 | 2c 0a 65 78 74 65 72 6e |is limit|,.extern|
|00000480| 61 6c 20 64 65 63 6f 64 | 65 72 20 69 73 20 63 61 |al decod|er is ca|
|00000490| 6c 6c 65 64 2e 1f 0a 28 | 64 65 66 76 61 72 20 62 |lled...(|defvar b|
|000004a0| 61 73 65 36 34 2d 69 6e | 74 65 72 6e 61 6c 2d 64 |ase64-in|ternal-d|
|000004b0| 65 63 6f 64 69 6e 67 2d | 6c 69 6d 69 74 20 31 30 |ecoding-|limit 10|
|000004c0| 30 30 20 28 23 24 20 2e | 20 2d 31 30 34 38 29 29 |00 (#$ .| -1048))|
|000004d0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 62 61 73 65 |.(defali|as 'base|
|000004e0| 36 34 2d 6e 75 6d 2d 74 | 6f 2d 63 68 61 72 20 23 |64-num-t|o-char #|
|000004f0| 5b 28 6e 29 20 22 08 c1 | 61 ab 82 c2 87 08 c3 57 |[(n) "..|a......W|
|00000500| ab 84 c4 08 5c 5c 87 08 | c5 57 ab 86 c6 08 c3 5a |....\\..|.W.....Z|
|00000510| 5c 5c 87 08 c7 57 ab 86 | c8 08 c5 5a 5c 5c 87 08 |\\...W..|...Z\\..|
|00000520| c7 55 ab 82 c9 87 08 ca | 55 ab 82 cb 87 cc cd 08 |.U......|U.......|
|00000530| 5c 22 87 22 20 5b 6e 20 | 6e 69 6c 20 3f 5c 3d 20 |\"." [n |nil ?\= |
|00000540| 32 36 20 3f 41 20 35 32 | 20 3f 61 20 36 32 20 3f |26 ?A 52| ?a 62 ?|
|00000550| 30 20 3f 5c 2b 20 36 33 | 20 3f 5c 2f 20 65 72 72 |0 ?\+ 63| ?\/ err|
|00000560| 6f 72 20 22 6e 6f 74 20 | 61 20 62 61 73 65 36 34 |or "not |a base64|
|00000570| 20 69 6e 74 65 67 65 72 | 20 25 64 22 5d 20 33 5d | integer| %d"] 3]|
|00000580| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 62 61 73 |).(defal|ias 'bas|
|00000590| 65 36 34 2d 63 68 61 72 | 2d 74 6f 2d 6e 75 6d 20 |e64-char|-to-num |
|000005a0| 23 5b 28 63 29 20 22 c0 | 09 58 ab 89 09 c2 58 ab |#[(c) ".|.X....X.|
|000005b0| 84 09 c0 5a 87 c3 09 58 | ab 8b 09 c4 58 ab 86 09 |...Z...X|....X...|
|000005c0| c3 5a c5 5c 5c 87 c6 09 | 58 ab 8b 09 c7 58 ab 86 |.Z.\\...|X....X..|
|000005d0| 09 c6 5a c8 5c 5c 87 09 | c9 55 ab 82 ca 87 09 cb |..Z.\\..|.U......|
|000005e0| 55 ab 82 cc 87 09 cd 55 | ab 82 ce 87 cf d0 09 5c |U......U|.......\|
|000005f0| 22 87 22 20 5b 3f 41 20 | 63 20 3f 5a 20 3f 61 20 |"." [?A |c ?Z ?a |
|00000600| 3f 7a 20 32 36 20 3f 30 | 20 3f 39 20 35 32 20 3f |?z 26 ?0| ?9 52 ?|
|00000610| 5c 2b 20 36 32 20 3f 5c | 2f 20 36 33 20 3f 5c 3d |\+ 62 ?\|/ 63 ?\=|
|00000620| 20 6e 69 6c 20 65 72 72 | 6f 72 20 22 6e 6f 74 20 | nil err|or "not |
|00000630| 61 20 62 61 73 65 36 34 | 20 63 68 61 72 61 63 74 |a base64| charact|
|00000640| 65 72 20 25 63 22 5d 20 | 33 5d 29 0a 28 64 65 66 |er %c"] |3]).(def|
|00000650| 61 6c 69 61 73 20 27 62 | 61 73 65 36 34 2d 65 6e |alias 'b|ase64-en|
|00000660| 63 6f 64 65 2d 31 20 23 | 5b 28 70 61 63 6b 29 20 |code-1 #|[(pack) |
|00000670| 22 08 40 08 41 40 c1 08 | 38 1a 1b 1c c5 c6 c7 0c |".@.A@..|8.......|
|00000680| c8 5c 22 21 21 0b ab c0 | c5 c6 c9 c7 ca 0c cb 5c |.\"!!...|.......\|
|00000690| 22 cc 5c 22 c7 0b cd 5c | 22 5c 22 21 21 5c 6e ab |".\"...\|"\"!!\n.|
|000006a0| 9c c5 c6 c9 c7 ca 0b ce | 5c 22 c1 5c 22 c7 5c 6e |........|\".\".\n|
|000006b0| cf 5c 22 5c 22 21 21 c5 | c6 ca 5c 6e d0 5c 22 21 |.\"\"!!.|..\n.\"!|
|000006c0| 21 50 aa 8d c5 c6 c7 ca | 0b ce 5c 22 c1 5c 22 21 |!P......|..\".\"!|
|000006d0| 21 d1 50 50 aa 8d c5 c6 | c7 ca 0c cb 5c 22 cc 5c |!.PP....|....\".\|
|000006e0| 22 21 21 d2 50 50 2b 87 | 22 20 5b 70 61 63 6b 20 |"!!.PP+.|" [pack |
|000006f0| 32 20 63 20 62 20 61 20 | 63 68 61 72 2d 74 6f 2d |2 c b a |char-to-|
|00000700| 73 74 72 69 6e 67 20 62 | 61 73 65 36 34 2d 6e 75 |string b|ase64-nu|
|00000710| 6d 2d 74 6f 2d 63 68 61 | 72 20 61 73 68 20 2d 32 |m-to-cha|r ash -2|
|00000720| 20 6c 6f 67 69 6f 72 20 | 6c 6f 67 61 6e 64 20 33 | logior |logand 3|
|00000730| 20 34 20 2d 34 20 31 35 | 20 2d 36 20 36 33 20 22 | 4 -4 15| -6 63 "|
|00000740| 3d 22 20 22 3d 3d 22 5d | 20 39 5d 29 0a 28 64 65 |=" "=="]| 9]).(de|
|00000750| 66 61 6c 69 61 73 20 27 | 62 61 73 65 36 34 2d 64 |falias '|base64-d|
|00000760| 65 63 6f 64 65 2d 31 20 | 23 5b 28 70 61 63 6b 29 |ecode-1 |#[(pack)|
|00000770| 20 22 c0 09 40 21 c0 09 | 41 40 21 c2 09 38 c3 09 | "..@!..|A@!..8..|
|00000780| 38 1c 1d 1e 06 1e 07 c8 | c9 ca 0e 07 c2 5c 22 ca |8.......|.....\".|
|00000790| 0e 06 cb 5c 22 5c 22 21 | 0d ad ae c0 0d 21 89 15 |...\"\"!|.....!..|
|000007a0| ad a7 c8 c9 ca cc 0e 06 | cd 5c 22 ce 5c 22 ca 0d |........|.\".\"..|
|000007b0| cf 5c 22 5c 22 21 0c ad | 93 c0 0c 21 89 14 ad 8c |.\"\"!..|...!....|
|000007c0| c8 c9 ca cc 0d c3 5c 22 | d0 5c 22 0c 5c 22 21 50 |......\"|.\".\"!P|
|000007d0| 50 2c 87 22 20 5b 62 61 | 73 65 36 34 2d 63 68 61 |P,." [ba|se64-cha|
|000007e0| 72 2d 74 6f 2d 6e 75 6d | 20 70 61 63 6b 20 32 20 |r-to-num| pack 2 |
|000007f0| 33 20 64 20 63 20 62 20 | 61 20 63 68 61 72 2d 74 |3 d c b |a char-t|
|00000800| 6f 2d 73 74 72 69 6e 67 | 20 6c 6f 67 69 6f 72 20 |o-string| logior |
|00000810| 61 73 68 20 2d 34 20 6c | 6f 67 61 6e 64 20 31 35 |ash -4 l|ogand 15|
|00000820| 20 34 20 2d 32 20 36 5d | 20 38 5d 29 0a 23 40 34 | 4 -2 6]| 8]).#@4|
|00000830| 39 20 45 6e 63 6f 64 65 | 20 53 54 52 49 4e 47 20 |9 Encode| STRING |
|00000840| 74 6f 20 62 61 73 65 36 | 34 2c 20 61 6e 64 20 72 |to base6|4, and r|
|00000850| 65 74 75 72 6e 20 74 68 | 65 20 72 65 73 75 6c 74 |eturn th|e result|
|00000860| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 62 61 |...(defa|lias 'ba|
|00000870| 73 65 36 34 2d 65 6e 63 | 6f 64 65 2d 73 74 72 69 |se64-enc|ode-stri|
|00000880| 6e 67 20 23 5b 28 73 74 | 72 69 6e 67 29 20 22 08 |ng #[(st|ring) ".|
|00000890| 47 c1 c2 c3 1c 1d 1e 06 | 1e 07 0d 0e 07 57 ab 9a |G.......|.....W..|
|000008a0| 0c c8 c9 ca 08 0e 06 0d | 4f cb 5c 22 cc 23 cd 51 |........|O.\".#.Q|
|000008b0| 14 0d 16 06 0d c2 5c 5c | 89 15 aa 61 c8 c9 ca 08 |......\\|...a....|
|000008c0| 0e 06 c3 4f cb 5c 22 cc | 23 1e 0e cf 0e 0e 47 d0 |...O.\".|#.....G.|
|000008d0| 5c 22 1e 11 0c 0e 0e 0e | 11 cb 55 ab 83 d2 aa 87 |\"......|..U.....|
|000008e0| 0e 11 d3 55 ad 81 d4 51 | 2e 06 87 22 20 5b 73 74 |...U...Q|..." [st|
|000008f0| 72 69 6e 67 20 30 20 35 | 37 20 6e 69 6c 20 64 65 |ring 0 5|7 nil de|
|00000900| 73 74 20 65 20 62 20 6c | 65 6e 20 6d 61 70 63 6f |st e b l|en mapco|
|00000910| 6e 63 61 74 20 62 61 73 | 65 36 34 2d 65 6e 63 6f |ncat bas|e64-enco|
|00000920| 64 65 2d 31 20 70 61 63 | 6b 2d 73 65 71 75 65 6e |de-1 pac|k-sequen|
|00000930| 63 65 20 33 20 22 22 20 | 22 5c 6e 22 20 65 73 20 |ce 3 "" |"\n" es |
|00000940| 6d 6f 64 20 34 20 6d 20 | 22 3d 22 20 32 20 22 3d |mod 4 m |"=" 2 "=|
|00000950| 3d 22 5d 20 38 20 28 23 | 24 20 2e 20 32 30 39 38 |="] 8 (#|$ . 2098|
|00000960| 29 5d 29 0a 23 40 36 36 | 20 44 65 63 6f 64 65 20 |)]).#@66| Decode |
|00000970| 53 54 52 49 4e 47 20 77 | 68 69 63 68 20 69 73 20 |STRING w|hich is |
|00000980| 65 6e 63 6f 64 65 64 20 | 69 6e 20 62 61 73 65 36 |encoded |in base6|
|00000990| 34 2c 20 61 6e 64 20 72 | 65 74 75 72 6e 20 74 68 |4, and r|eturn th|
|000009a0| 65 20 72 65 73 75 6c 74 | 2e 1f 0a 28 64 65 66 61 |e result|...(defa|
|000009b0| 6c 69 61 73 20 27 62 61 | 73 65 36 34 2d 64 65 63 |lias 'ba|se64-dec|
|000009c0| 6f 64 65 2d 73 74 72 69 | 6e 67 20 23 5b 28 73 74 |ode-stri|ng #[(st|
|000009d0| 72 69 6e 67 29 20 22 c0 | c1 c2 0b c4 5c 22 c5 23 |ring) ".|....\".#|
|000009e0| 87 22 20 5b 6d 61 70 63 | 6f 6e 63 61 74 20 62 61 |." [mapc|oncat ba|
|000009f0| 73 65 36 34 2d 64 65 63 | 6f 64 65 2d 31 20 70 61 |se64-dec|ode-1 pa|
|00000a00| 63 6b 2d 73 65 71 75 65 | 6e 63 65 20 73 74 72 69 |ck-seque|nce stri|
|00000a10| 6e 67 20 34 20 22 22 5d | 20 35 20 28 23 24 20 2e |ng 4 ""]| 5 (#$ .|
|00000a20| 20 32 34 30 39 29 5d 29 | 0a 28 64 65 66 61 6c 69 | 2409)])|.(defali|
|00000a30| 61 73 20 27 62 61 73 65 | 36 34 2d 69 6e 74 65 72 |as 'base|64-inter|
|00000a40| 6e 61 6c 2d 65 6e 63 6f | 64 65 2d 72 65 67 69 6f |nal-enco|de-regio|
|00000a50| 6e 20 23 5b 28 62 65 67 | 20 65 6e 64 29 20 22 8a |n #[(beg| end) ".|
|00000a60| 8c 08 09 7d 88 08 09 7b | 1a 08 09 7c 88 c3 5c 6e |...}...{|...|..\n|
|00000a70| 21 63 88 29 6e ae 82 c4 | 63 2a 87 22 20 5b 62 65 |!c.)n...|c*." [be|
|00000a80| 67 20 65 6e 64 20 73 74 | 72 20 62 61 73 65 36 34 |g end st|r base64|
|00000a90| 2d 65 6e 63 6f 64 65 2d | 73 74 72 69 6e 67 20 22 |-encode-|string "|
|00000aa0| 5c 6e 22 5d 20 32 5d 29 | 0a 28 64 65 66 61 6c 69 |\n"] 2])|.(defali|
|00000ab0| 61 73 20 27 62 61 73 65 | 36 34 2d 69 6e 74 65 72 |as 'base|64-inter|
|00000ac0| 6e 61 6c 2d 64 65 63 6f | 64 65 2d 72 65 67 69 6f |nal-deco|de-regio|
|00000ad0| 6e 20 23 5b 28 62 65 67 | 20 65 6e 64 29 20 22 8a |n #[(beg| end) ".|
|00000ae0| 8c 08 09 7d 88 65 62 88 | c2 c3 21 ab 87 c4 c5 c6 |...}.eb.|..!.....|
|00000af0| 8f 88 aa 74 c2 c7 21 ad | 84 c4 c8 c9 8f 2a 87 22 |...t..!.|.....*."|
|00000b00| 20 5b 62 65 67 20 65 6e | 64 20 6c 6f 6f 6b 69 6e | [beg en|d lookin|
|00000b10| 67 2d 61 74 20 22 2e 2a | 5c 6e 22 20 65 72 72 20 |g-at ".*|\n" err |
|00000b20| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 94 |(byte-co|de "....|
|00000b30| c2 95 53 7b 21 c3 89 23 | 87 22 20 5b 72 65 70 6c |..S{!..#|." [repl|
|00000b40| 61 63 65 2d 6d 61 74 63 | 68 20 62 61 73 65 36 34 |ace-matc|h base64|
|00000b50| 2d 64 65 63 6f 64 65 2d | 73 74 72 69 6e 67 20 30 |-decode-|string 0|
|00000b60| 20 74 5d 20 34 29 20 28 | 28 65 72 72 6f 72 20 28 | t] 4) (|(error (|
|00000b70| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 09 41 40 21 |byte-cod|e "..A@!|
|00000b80| 88 c2 c3 21 87 22 20 5b | 6d 65 73 73 61 67 65 20 |...!." [|message |
|00000b90| 65 72 72 20 72 65 70 6c | 61 63 65 2d 6d 61 74 63 |err repl|ace-matc|
|00000ba0| 68 20 22 22 5d 20 32 29 | 29 29 20 22 2e 2a 24 22 |h ""] 2)|)) ".*$"|
|00000bb0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 | (byte-c|ode "...|
|00000bc0| 94 c2 95 7b 21 c3 89 23 | 87 22 20 5b 72 65 70 6c |...{!..#|." [repl|
|00000bd0| 61 63 65 2d 6d 61 74 63 | 68 20 62 61 73 65 36 34 |ace-matc|h base64|
|00000be0| 2d 64 65 63 6f 64 65 2d | 73 74 72 69 6e 67 20 30 |-decode-|string 0|
|00000bf0| 20 74 5d 20 34 29 20 28 | 28 65 72 72 6f 72 20 28 | t] 4) (|(error (|
|00000c00| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 09 41 40 21 |byte-cod|e "..A@!|
|00000c10| c2 c3 21 88 87 22 20 5b | 6d 65 73 73 61 67 65 20 |..!.." [|message |
|00000c20| 65 72 72 20 72 65 70 6c | 61 63 65 2d 6d 61 74 63 |err repl|ace-matc|
|00000c30| 68 20 22 22 5d 20 33 29 | 29 29 5d 20 33 5d 29 0a |h ""] 3)|))] 3]).|
|00000c40| 28 64 65 66 61 6c 69 61 | 73 20 27 62 61 73 65 36 |(defalia|s 'base6|
|00000c50| 34 2d 65 78 74 65 72 6e | 61 6c 2d 65 6e 63 6f 64 |4-extern|al-encod|
|00000c60| 65 2d 72 65 67 69 6f 6e | 20 23 5b 28 62 65 67 20 |e-region| #[(beg |
|00000c70| 65 6e 64 29 20 22 8a 8c | 08 09 7d 88 c2 c3 89 1c |end) "..|..}.....|
|00000c80| 1d 1e 06 c7 c8 08 09 0e | 09 40 ca 89 c2 0e 09 41 |........|.@.....A|
|00000c90| 26 08 88 2b 65 62 88 cb | cc c2 ca 23 ad 86 cd ce |&..+eb..|...#....|
|00000ca0| 21 88 aa 73 2a 87 22 20 | 5b 62 65 67 20 65 6e 64 |!..s*." |[beg end|
|00000cb0| 20 6e 69 6c 20 62 69 6e | 61 72 79 20 63 6f 64 69 | nil bin|ary codi|
|00000cc0| 6e 67 2d 73 79 73 74 65 | 6d 2d 66 6f 72 2d 77 72 |ng-syste|m-for-wr|
|00000cd0| 69 74 65 20 63 6f 64 69 | 6e 67 2d 73 79 73 74 65 |ite codi|ng-syste|
|00000ce0| 6d 2d 66 6f 72 2d 72 65 | 61 64 20 73 65 6c 65 63 |m-for-re|ad selec|
|00000cf0| 74 69 76 65 2d 64 69 73 | 70 6c 61 79 20 61 70 70 |tive-dis|play app|
|00000d00| 6c 79 20 63 61 6c 6c 2d | 70 72 6f 63 65 73 73 2d |ly call-|process-|
|00000d10| 72 65 67 69 6f 6e 20 62 | 61 73 65 36 34 2d 65 78 |region b|ase64-ex|
|00000d20| 74 65 72 6e 61 6c 2d 65 | 6e 63 6f 64 65 72 20 74 |ternal-e|ncoder t|
|00000d30| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00000d40| 72 64 20 22 0d 24 22 20 | 72 65 70 6c 61 63 65 2d |rd ".$" |replace-|
|00000d50| 6d 61 74 63 68 20 22 22 | 5d 20 39 5d 29 0a 28 64 |match ""|] 9]).(d|
|00000d60| 65 66 61 6c 69 61 73 20 | 27 62 61 73 65 36 34 2d |efalias |'base64-|
|00000d70| 65 78 74 65 72 6e 61 6c | 2d 64 65 63 6f 64 65 2d |external|-decode-|
|00000d80| 72 65 67 69 6f 6e 20 23 | 5b 28 62 65 67 20 65 6e |region #|[(beg en|
|00000d90| 64 29 20 22 8a c0 c1 89 | 1a 1b 1c c5 c6 0e 07 0e |d) "....|........|
|00000da0| 08 0e 09 40 ca 89 c0 0e | 09 41 26 08 2c 87 22 20 |...@....|.A&.,." |
|00000db0| 5b 6e 69 6c 20 62 69 6e | 61 72 79 20 63 6f 64 69 |[nil bin|ary codi|
|00000dc0| 6e 67 2d 73 79 73 74 65 | 6d 2d 66 6f 72 2d 77 72 |ng-syste|m-for-wr|
|00000dd0| 69 74 65 20 63 6f 64 69 | 6e 67 2d 73 79 73 74 65 |ite codi|ng-syste|
|00000de0| 6d 2d 66 6f 72 2d 72 65 | 61 64 20 73 65 6c 65 63 |m-for-re|ad selec|
|00000df0| 74 69 76 65 2d 64 69 73 | 70 6c 61 79 20 61 70 70 |tive-dis|play app|
|00000e00| 6c 79 20 63 61 6c 6c 2d | 70 72 6f 63 65 73 73 2d |ly call-|process-|
|00000e10| 72 65 67 69 6f 6e 20 62 | 65 67 20 65 6e 64 20 62 |region b|eg end b|
|00000e20| 61 73 65 36 34 2d 65 78 | 74 65 72 6e 61 6c 2d 64 |ase64-ex|ternal-d|
|00000e30| 65 63 6f 64 65 72 20 74 | 5d 20 39 5d 29 0a 23 40 |ecoder t|] 9]).#@|
|00000e40| 33 36 36 20 45 6e 63 6f | 64 65 20 63 75 72 72 65 |366 Enco|de curre|
|00000e50| 6e 74 20 72 65 67 69 6f | 6e 20 62 79 20 62 61 73 |nt regio|n by bas|
|00000e60| 65 36 34 2e 0a 53 54 41 | 52 54 20 61 6e 64 20 45 |e64..STA|RT and E|
|00000e70| 4e 44 20 61 72 65 20 62 | 75 66 66 65 72 20 70 6f |ND are b|uffer po|
|00000e80| 73 69 74 69 6f 6e 73 2e | 0a 54 68 69 73 20 66 75 |sitions.|.This fu|
|00000e90| 6e 63 74 69 6f 6e 20 63 | 61 6c 6c 73 20 69 6e 74 |nction c|alls int|
|00000ea0| 65 72 6e 61 6c 20 62 61 | 73 65 36 34 20 65 6e 63 |ernal ba|se64 enc|
|00000eb0| 6f 64 65 72 20 69 66 20 | 73 69 7a 65 20 6f 66 20 |oder if |size of |
|00000ec0| 72 65 67 69 6f 6e 20 69 | 73 0a 73 6d 61 6c 6c 65 |region i|s.smalle|
|00000ed0| 72 20 74 68 61 6e 20 60 | 62 61 73 65 36 34 2d 69 |r than `|base64-i|
|00000ee0| 6e 74 65 72 6e 61 6c 2d | 65 6e 63 6f 64 69 6e 67 |nternal-|encoding|
|00000ef0| 2d 6c 69 6d 69 74 27 2c | 20 6f 74 68 65 72 77 69 |-limit',| otherwi|
|00000f00| 73 65 20 69 74 20 63 61 | 6c 6c 73 0a 65 78 74 65 |se it ca|lls.exte|
|00000f10| 72 6e 61 6c 20 62 61 73 | 65 36 34 20 65 6e 63 6f |rnal bas|e64 enco|
|00000f20| 64 65 72 20 73 70 65 63 | 69 66 69 65 64 20 62 79 |der spec|ified by|
|00000f30| 20 60 62 61 73 65 36 34 | 2d 65 78 74 65 72 6e 61 | `base64|-externa|
|00000f40| 6c 2d 65 6e 63 6f 64 65 | 72 27 2e 20 20 49 6e 0a |l-encode|r'.  In.|
|00000f50| 74 68 69 73 20 63 61 73 | 65 2c 20 79 6f 75 20 6d |this cas|e, you m|
|00000f60| 75 73 74 20 69 6e 73 74 | 61 6c 6c 20 74 68 65 20 |ust inst|all the |
|00000f70| 70 72 6f 67 72 61 6d 20 | 28 6d 61 79 62 65 20 6d |program |(maybe m|
|00000f80| 6d 65 6e 63 6f 64 65 20 | 69 6e 63 6c 75 64 65 64 |mencode |included|
|00000f90| 20 69 6e 0a 6d 65 74 61 | 6d 61 69 6c 20 6f 72 20 | in.meta|mail or |
|00000fa0| 58 45 6d 61 63 73 20 70 | 61 63 6b 61 67 65 29 2e |XEmacs p|ackage).|
|00000fb0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 62 61 73 |..(defal|ias 'bas|
|00000fc0| 65 36 34 2d 65 6e 63 6f | 64 65 2d 72 65 67 69 6f |e64-enco|de-regio|
|00000fd0| 6e 20 23 5b 28 73 74 61 | 72 74 20 65 6e 64 29 20 |n #[(sta|rt end) |
|00000fe0| 22 08 ab 8c 09 5c 6e 5a | 08 56 ab 85 c3 5c 6e 09 |"....\nZ|.V...\n.|
|00000ff0| 5c 22 87 c4 5c 6e 09 5c | 22 87 22 20 5b 62 61 73 |\"..\n.\|"." [bas|
|00001000| 65 36 34 2d 69 6e 74 65 | 72 6e 61 6c 2d 65 6e 63 |e64-inte|rnal-enc|
|00001010| 6f 64 69 6e 67 2d 6c 69 | 6d 69 74 20 65 6e 64 20 |oding-li|mit end |
|00001020| 73 74 61 72 74 20 62 61 | 73 65 36 34 2d 65 78 74 |start ba|se64-ext|
|00001030| 65 72 6e 61 6c 2d 65 6e | 63 6f 64 65 2d 72 65 67 |ernal-en|code-reg|
|00001040| 69 6f 6e 20 62 61 73 65 | 36 34 2d 69 6e 74 65 72 |ion base|64-inter|
|00001050| 6e 61 6c 2d 65 6e 63 6f | 64 65 2d 72 65 67 69 6f |nal-enco|de-regio|
|00001060| 6e 5d 20 33 20 28 23 24 | 20 2e 20 33 36 35 32 29 |n] 3 (#$| . 3652)|
|00001070| 20 22 72 22 5d 29 0a 23 | 40 33 36 36 20 44 65 63 | "r"]).#|@366 Dec|
|00001080| 6f 64 65 20 63 75 72 72 | 65 6e 74 20 72 65 67 69 |ode curr|ent regi|
|00001090| 6f 6e 20 62 79 20 62 61 | 73 65 36 34 2e 0a 53 54 |on by ba|se64..ST|
|000010a0| 41 52 54 20 61 6e 64 20 | 45 4e 44 20 61 72 65 20 |ART and |END are |
|000010b0| 62 75 66 66 65 72 20 70 | 6f 73 69 74 69 6f 6e 73 |buffer p|ositions|
|000010c0| 2e 0a 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |..This f|unction |
|000010d0| 63 61 6c 6c 73 20 69 6e | 74 65 72 6e 61 6c 20 62 |calls in|ternal b|
|000010e0| 61 73 65 36 34 20 64 65 | 63 6f 64 65 72 20 69 66 |ase64 de|coder if|
|000010f0| 20 73 69 7a 65 20 6f 66 | 20 72 65 67 69 6f 6e 20 | size of| region |
|00001100| 69 73 0a 73 6d 61 6c 6c | 65 72 20 74 68 61 6e 20 |is.small|er than |
|00001110| 60 62 61 73 65 36 34 2d | 69 6e 74 65 72 6e 61 6c |`base64-|internal|
|00001120| 2d 64 65 63 6f 64 69 6e | 67 2d 6c 69 6d 69 74 27 |-decodin|g-limit'|
|00001130| 2c 20 6f 74 68 65 72 77 | 69 73 65 20 69 74 20 63 |, otherw|ise it c|
|00001140| 61 6c 6c 73 0a 65 78 74 | 65 72 6e 61 6c 20 62 61 |alls.ext|ernal ba|
|00001150| 73 65 36 34 20 64 65 63 | 6f 64 65 72 20 73 70 65 |se64 dec|oder spe|
|00001160| 63 69 66 69 65 64 20 62 | 79 20 60 62 61 73 65 36 |cified b|y `base6|
|00001170| 34 2d 65 78 74 65 72 6e | 61 6c 2d 64 65 63 6f 64 |4-extern|al-decod|
|00001180| 65 72 27 2e 20 20 49 6e | 0a 74 68 69 73 20 63 61 |er'.  In|.this ca|
|00001190| 73 65 2c 20 79 6f 75 20 | 6d 75 73 74 20 69 6e 73 |se, you |must ins|
|000011a0| 74 61 6c 6c 20 74 68 65 | 20 70 72 6f 67 72 61 6d |tall the| program|
|000011b0| 20 28 6d 61 79 62 65 20 | 6d 6d 65 6e 63 6f 64 65 | (maybe |mmencode|
|000011c0| 20 69 6e 63 6c 75 64 65 | 64 20 69 6e 0a 6d 65 74 | include|d in.met|
|000011d0| 61 6d 61 69 6c 20 6f 72 | 20 58 45 6d 61 63 73 20 |amail or| XEmacs |
|000011e0| 70 61 63 6b 61 67 65 29 | 2e 1f 0a 28 64 65 66 61 |package)|...(defa|
|000011f0| 6c 69 61 73 20 27 62 61 | 73 65 36 34 2d 64 65 63 |lias 'ba|se64-dec|
|00001200| 6f 64 65 2d 72 65 67 69 | 6f 6e 20 23 5b 28 73 74 |ode-regi|on #[(st|
|00001210| 61 72 74 20 65 6e 64 29 | 20 22 08 ab 8c 09 5c 6e |art end)| "....\n|
|00001220| 5a 08 56 ab 85 c3 5c 6e | 09 5c 22 87 c4 5c 6e 09 |Z.V...\n|.\"..\n.|
|00001230| 5c 22 87 22 20 5b 62 61 | 73 65 36 34 2d 69 6e 74 |\"." [ba|se64-int|
|00001240| 65 72 6e 61 6c 2d 64 65 | 63 6f 64 69 6e 67 2d 6c |ernal-de|coding-l|
|00001250| 69 6d 69 74 20 65 6e 64 | 20 73 74 61 72 74 20 62 |imit end| start b|
|00001260| 61 73 65 36 34 2d 65 78 | 74 65 72 6e 61 6c 2d 64 |ase64-ex|ternal-d|
|00001270| 65 63 6f 64 65 2d 72 65 | 67 69 6f 6e 20 62 61 73 |ecode-re|gion bas|
|00001280| 65 36 34 2d 69 6e 74 65 | 72 6e 61 6c 2d 64 65 63 |e64-inte|rnal-dec|
|00001290| 6f 64 65 2d 72 65 67 69 | 6f 6e 5d 20 33 20 28 23 |ode-regi|on] 3 (#|
|000012a0| 24 20 2e 20 34 32 32 31 | 29 20 22 72 22 5d 29 0a |$ . 4221|) "r"]).|
|000012b0| 23 40 32 33 31 20 45 6e | 63 6f 64 65 20 63 6f 6e |#@231 En|code con|
|000012c0| 74 65 6e 74 73 20 6f 66 | 20 66 69 6c 65 20 46 49 |tents of| file FI|
|000012d0| 4c 45 4e 41 4d 45 20 74 | 6f 20 62 61 73 65 36 34 |LENAME t|o base64|
|000012e0| 2c 20 61 6e 64 20 69 6e | 73 65 72 74 20 74 68 65 |, and in|sert the|
|000012f0| 20 72 65 73 75 6c 74 2e | 0a 49 74 20 63 61 6c 6c | result.|.It call|
|00001300| 73 20 65 78 74 65 72 6e | 61 6c 20 62 61 73 65 36 |s extern|al base6|
|00001310| 34 20 65 6e 63 6f 64 65 | 72 20 73 70 65 63 69 66 |4 encode|r specif|
|00001320| 69 65 64 20 62 79 0a 60 | 62 61 73 65 36 34 2d 65 |ied by.`|base64-e|
|00001330| 78 74 65 72 6e 61 6c 2d | 65 6e 63 6f 64 65 72 27 |xternal-|encoder'|
|00001340| 2e 20 20 53 6f 20 79 6f | 75 20 6d 75 73 74 20 69 |.  So yo|u must i|
|00001350| 6e 73 74 61 6c 6c 20 74 | 68 65 20 70 72 6f 67 72 |nstall t|he progr|
|00001360| 61 6d 20 28 6d 61 79 62 | 65 0a 6d 6d 65 6e 63 6f |am (mayb|e.mmenco|
|00001370| 64 65 20 69 6e 63 6c 75 | 64 65 64 20 69 6e 20 6d |de inclu|ded in m|
|00001380| 65 74 61 6d 61 69 6c 20 | 6f 72 20 58 45 6d 61 63 |etamail |or XEmac|
|00001390| 73 20 70 61 63 6b 61 67 | 65 29 2e 1f 0a 28 64 65 |s packag|e)...(de|
|000013a0| 66 61 6c 69 61 73 20 27 | 62 61 73 65 36 34 2d 69 |falias '|base64-i|
|000013b0| 6e 73 65 72 74 2d 65 6e | 63 6f 64 65 64 2d 66 69 |nsert-en|coded-fi|
|000013c0| 6c 65 20 23 5b 28 66 69 | 6c 65 6e 61 6d 65 29 20 |le #[(fi|lename) |
|000013d0| 22 c0 c1 5c 6e 40 0b c4 | c5 5c 6e 41 26 06 87 22 |"..\n@..|.\nA&.."|
|000013e0| 20 5b 61 70 70 6c 79 20 | 63 61 6c 6c 2d 70 72 6f | [apply |call-pro|
|000013f0| 63 65 73 73 20 62 61 73 | 65 36 34 2d 65 78 74 65 |cess bas|e64-exte|
|00001400| 72 6e 61 6c 2d 65 6e 63 | 6f 64 65 72 20 66 69 6c |rnal-enc|oder fil|
|00001410| 65 6e 61 6d 65 20 74 20 | 6e 69 6c 5d 20 37 20 28 |ename t |nil] 7 (|
|00001420| 23 24 20 2e 20 34 37 39 | 30 29 20 28 6c 69 73 74 |#$ . 479|0) (list|
|00001430| 20 28 72 65 61 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 | (read-f|ile-name|
|00001440| 20 22 49 6e 73 65 72 74 | 20 65 6e 63 6f 64 65 64 | "Insert| encoded|
|00001450| 20 66 69 6c 65 3a 20 22 | 29 29 5d 29 0a 28 64 65 | file: "|))]).(de|
|00001460| 66 61 6c 69 61 73 20 27 | 62 61 73 65 36 34 2d 65 |falias '|base64-e|
|00001470| 6e 63 6f 64 65 64 2d 6c | 65 6e 67 74 68 20 23 5b |ncoded-l|ength #[|
|00001480| 28 73 74 72 69 6e 67 29 | 20 22 08 47 89 19 c2 a5 |(string)| ".G....|
|00001490| c3 09 c2 5c 22 c4 55 ab | 83 c4 aa 81 c5 5c 5c c6 |...\".U.|.....\\.|
|000014a0| 5f 29 87 22 20 5b 73 74 | 72 69 6e 67 20 6c 65 6e |_)." [st|ring len|
|000014b0| 20 33 20 6d 6f 64 20 30 | 20 31 20 34 5d 20 35 5d | 3 mod 0| 1 4] 5]|
|000014c0| 29 0a 23 40 39 37 20 53 | 70 6c 69 74 20 73 65 71 |).#@97 S|plit seq|
|000014d0| 75 65 6e 63 65 20 53 45 | 51 20 69 6e 74 6f 20 53 |uence SE|Q into S|
|000014e0| 49 5a 45 20 65 6c 65 6d | 65 6e 74 73 20 70 61 63 |IZE elem|ents pac|
|000014f0| 6b 73 2c 0a 61 6e 64 20 | 72 65 74 75 72 6e 20 6c |ks,.and |return l|
|00001500| 69 73 74 20 6f 66 20 70 | 61 63 6b 73 2e 20 5b 6d |ist of p|acks. [m|
|00001510| 65 6c 2d 62 3b 20 74 6c | 2d 73 65 71 20 66 75 6e |el-b; tl|-seq fun|
|00001520| 63 74 69 6f 6e 5d 1f 0a | 28 64 65 66 61 6c 69 61 |ction]..|(defalia|
|00001530| 73 20 27 70 61 63 6b 2d | 73 65 71 75 65 6e 63 65 |s 'pack-|sequence|
|00001540| 20 23 5b 28 73 65 71 20 | 73 69 7a 65 29 20 22 08 | #[(seq |size) ".|
|00001550| 47 c1 c2 89 c1 c2 1b 1c | 1d 1e 06 1e 07 1e 08 0e |G.......|........|
|00001560| 07 0e 08 57 ab a5 08 0e | 07 9c 89 16 06 0d 42 15 |...W....|......B.|
|00001570| 0c 54 89 14 0e 09 55 ab | 8a ca 0d 21 0b 42 13 c2 |.T....U.|...!.B..|
|00001580| 15 c1 14 0e 07 54 89 16 | 07 aa 56 0d ab 86 ca 0d |.....T..|..V.....|
|00001590| 21 0b 42 13 ca 0b 21 2e | 06 87 22 20 5b 73 65 71 |!.B...!.|.." [seq|
|000015a0| 20 30 20 6e 69 6c 20 64 | 65 73 74 20 69 20 75 6e | 0 nil d|est i un|
|000015b0| 69 74 20 6f 62 6a 20 70 | 20 6c 65 6e 20 73 69 7a |it obj p| len siz|
|000015c0| 65 20 72 65 76 65 72 73 | 65 5d 20 37 20 28 23 24 |e revers|e] 7 (#$|
|000015d0| 20 2e 20 35 33 31 39 29 | 5d 29 0a 28 70 72 6f 76 | . 5319)|]).(prov|
|000015e0| 69 64 65 20 27 6d 65 6c | 2d 62 29 0a             |ide 'mel|-b).    |
+--------+-------------------------+-------------------------+--------+--------+